
 1000  *SAVE DP18.MOVE.SUBS
 2020  *--------------------------------
 2030  *      MOVE (Y,A) INTO DAC. YA IS UNPACKED
 2040  *--------------------------------
 2050  MOVE.YA.DAC.1
 2060         STA PNTR
 2070         STY PNTR+1
 2080         LDY #10      MOVE 11 BYTES
 2090  .1     LDA (PNTR),Y
 2100         STA DAC,Y
 2110         DEY
 2120         BPL .1
 2130         LDA DAC.EXPONENT
 2140         STA DAC.SIGN
 2150         AND #$7F
 2160         STA DAC.EXPONENT
 2170         RTS
 2180  *--------------------------------
 2190  *      MOVE (Y,A) INTO ARG. YA IS UNPACKED
 2200  *--------------------------------
 2210  MOVE.YA.ARG.1
 2220         STA PNTR
 2230         STY PNTR+1
 2240         LDY #10      MOVE 11 BYTES
 2250  .1     LDA (PNTR),Y
 2260         STA ARG,Y
 2270         DEY
 2280         BPL .1
 2290         LDA ARG.EXPONENT
 2300         STA ARG.SIGN
 2310         AND #$7F
 2320         STA ARG.EXPONENT
 2330         RTS
 2340  *--------------------------------
 2350  *      MOVE DAC TO (Y,A) WITHOUT PACKING
 2360  *--------------------------------
 2370  MOVE.DAC.YA.1
 2380         STA PNTR
 2390         STY PNTR+1
 2400         LDA DAC.EXPONENT
 2410         BPL .0
 2420         JMP DAC.YA.O.U  OVER- OR UNDER-FLOW
 2430  .0     BIT DAC.SIGN
 2440         BPL .1       POSITIVE
 2450         ORA #$80     NEGATIVE
 2460  .1     LDY #0
 2470  .2     STA (PNTR),Y
 2480         INY
 2490         LDA DAC,Y
 2500         CPY #11      11 BYTES
 2510         BCC .2
 2520         RTS
 2530  *--------------------------------
 2540  MOVE.DAC.TEMP1
 2550         LDA #DP.TEMP1
 2560         LDY /DP.TEMP1
 2570         JMP MOVE.DAC.YA.1
 2580  *--------------------------------
 2590  MOVE.TEMP1.ARG
 2600         LDA #DP.TEMP1
 2610         LDY /DP.TEMP1
 2620         JMP MOVE.YA.ARG.1
 2630  *--------------------------------
 2640  MOVE.TEMP1.DAC
 2650         LDA #DP.TEMP1
 2660         LDY /DP.TEMP1
 2670         JMP MOVE.YA.DAC.1
 2680  *--------------------------------
 2690  MOVE.DAC.TEMP2
 2700         LDA #DP.TEMP2
 2710         LDY /DP.TEMP2
 2720         JMP MOVE.DAC.YA.1
 2730  *--------------------------------
 2740  MOVE.TEMP2.DAC
 2750         LDA #DP.TEMP2
 2760         LDY /DP.TEMP2
 2770         JMP MOVE.YA.DAC.1
 2780  *--------------------------------
 2790  MOVE.TEMP2.ARG
 2800         LDA #DP.TEMP2
 2810         LDY /DP.TEMP2
 2820         JMP MOVE.YA.ARG.1
 2830  *--------------------------------
 2840  MOVE.TEMP3.DAC
 2850         LDA #DP.TEMP3
 2860         LDY /DP.TEMP3
 2870         JMP MOVE.YA.DAC.1
 2880  *--------------------------------
 2890  MOVE.TEMP3.ARG
 2900         LDA #DP.TEMP3
 2910         LDY /DP.TEMP3
 2920         JMP MOVE.YA.ARG.1
 2930  *--------------------------------
 2940  MOVE.DAC.TEMP3
 2950         LDA #DP.TEMP3
 2960         LDY /DP.TEMP3
 2970         JMP MOVE.DAC.YA.1
 2980  *--------------------------------

